home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / prgtools / czlis110.zip / DEMO.BAS < prev    next >
BASIC Source File  |  1994-10-29  |  953b  |  36 lines
  1. DEFINT A-Z
  2.  
  3. '$FORM frmCzList
  4. '$FORM Demodir
  5. '$FORM General
  6.  
  7. ' CzList Internal functions. These functions have to be declared if you
  8. ' want to use them.
  9. DECLARE FUNCTION CzGetWhatKindMem% ()
  10. DECLARE FUNCTION CzItemsTagged% ()
  11. DECLARE FUNCTION CzAllowTagging% (YesNo%)
  12. DECLARE FUNCTION CzKeybTagScrolling% (YesNo%)
  13. DECLARE FUNCTION CzMouTagScrolling% (YesNo%)
  14. DECLARE FUNCTION CzSetVirtualPath% (PathToSet$)
  15.  
  16. SUB FChkAllowTag (frmCzList AS FORM)
  17.  
  18. IF frmCzList.chkAllowTag.Value = 1 THEN
  19.    Result = CzAllowTagging(0)
  20.    Result = CzKeybTagScrolling(0)
  21.    Result = CzMouTagScrolling(0)
  22.    frmCzList.chkKeybTag.Enabled = -1
  23.    frmCzList.chkMouseTag.Enabled = -1
  24.    frmCzList.chkKeybTag.Value = 1
  25.    frmCzList.chkMouseTag.Value = 1
  26. ELSE
  27.    Result = CzAllowTagging(1)
  28.    Result = CzKeybTagScrolling(1)
  29.    Result = CzMouTagScrolling(1)
  30.    frmCzList.chkKeybTag.Enabled = 0
  31.    frmCzList.chkMouseTag.Enabled = 0
  32. END IF
  33.  
  34. END SUB
  35.  
  36.